home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / NW_HAM_FX_Genarator.AMOS / NW_HAM_FX_Genarator.amosSourceCode
AMOS Source Code  |  1995-12-30  |  319b  |  16 lines
  1. ' Ham FX Generator 
  2. ' ï¿½1993 Neil Wright  
  3. ' Of the C.I.A 
  4. '
  5. Close Editor 
  6. Close Workbench 
  7. Screen Open 0,320,256,4096,Lowres
  8. Curs Off : Hide 
  9. Cls 0
  10. NICE_HAM_ROUTINE_MISTER_GOSLING=2
  11. For I=0 To 360 Step 1
  12.    B=(I mod 4096)
  13.    Ink B
  14.    Box 1,256-I To 320,256-I
  15. Next I
  16. Shift Down NICE_HAM_ROUTINE_MISTER_GOSLING,1,4095,1